home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip_2000-11_cd2.bin / sharewar / Slunec / app / 17 / _SETUP.1 / Odstranit vsechny projekty.pw < prev    next >
Text File  |  2000-08-30  |  2KB  |  78 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {     Programmer's Wizard 2 Pascal Script               }
  5. {     Petr Esner, petr.esner@atlas.cz                   }
  6. {                                                       }
  7. {     ODSTRANIT VSECHNY PROJEKTY.PW                     }
  8. {     (popis jazyka v souboru SCRIPT.DOC)               }
  9. {                                                       }
  10. {*******************************************************}
  11. uses ScriptUtils;
  12.  
  13. function GetVerStr: string;
  14. var
  15.   mMajor, mMinor, mRel: Integer;
  16. Begin
  17.   GetVersionEx(mMajor, mMinor, mRel);
  18.   result := 'v' + IntToStr(mMajor) + '.' + IntToStr(mMinor) + '.' +
  19.     IntToStr(mRel);
  20. end;
  21.  
  22. function GetValidVerStr: string;
  23. Begin
  24.   result := 'v2.0.1'; //pozadovana verze PW
  25. end;
  26.  
  27. procedure EnsureSafeScriptingDisabled;
  28. Begin
  29.   while IsSafeScriptingEnabled do Begin
  30.     //zobrazit upozorneni..
  31.     if not (AskUser('Tento skript vyu₧φvß n∞kterΘ chrßn∞nΘ funkce a proto ' +
  32.       'nem∙₧e pracovat p°i zapnutΘm bezpeΦnΘm skriptovßnφ. Chcete tento ' +
  33.       're₧im skriptovßnφ vypnout?')) then Halt;
  34.  
  35.     //..a dialog, ve kterem lze skriptovani vypnout
  36.     Menu_FileSettingsScripting;
  37.   end;
  38. end;
  39.  
  40. var
  41.   mIndex: Integer;
  42.   mProjCount: Integer;
  43.   mFileName, mName, mDescription: string;
  44. Begin
  45.   if GetValidVerStr <> GetVerStr then //nespravna verze?
  46.     ShowMessage('Upozorn∞nφ: tento skript byl napsßn pro Programmers Wizard ' +
  47.       GetValidVerStr + '. Momentßln∞ spuÜt∞nß verze: ' + GetVerStr);
  48.   
  49.   //tento skript pou₧φvß chrßn∞nΘ funkce, nebude pracovat p°i zapnutΘm
  50.   //chrßn∞nΘm re₧imu skriptovßnφ
  51.   EnsureSafeScriptingDisabled;
  52.  
  53.   if AskUser('Tento skript odstranφ vÜechny projekty a jejich plochy. Chcete ' +
  54.         'pokraΦovat?') = false then Halt;
  55.  
  56.   //zavrit soucasny projekt
  57.   if IsProjectOpened then CloseProject;
  58.   if IsProjectOpened then //nelze zavrit?
  59.     ShowMessage('Projekt nelze zav°φt.')
  60.   else Begin
  61.     mProjCount := GetProjectCount;
  62.     for mIndex := GetProjectCount - 1 downto 0 do
  63.       if GetProjectInfo(
  64.         mIndex,
  65.         mFileName,
  66.         mName,
  67.         mDescription
  68.       ) then
  69.         if DeleteFile(mFileName) then dec(mProjCount);
  70.  
  71.     if mProjCount > 0 then
  72.       ShowMessage(IntToStr(mProjCount) + ' projekt∙ se nepoda°ilo odstranit.')
  73.     else
  74.       ShowMessage('VÜechny projekty byly odstran∞ny.');
  75.   end;
  76. end.
  77.  
  78.